home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / PACKET / P4W32300 / TEST.SCR < prev    next >
Encoding:
Text File  |  1996-11-19  |  1.1 KB  |  49 lines
  1. # Testscript 1.0 fⁿr Pr4Win Scriptlanguage
  2.  
  3. set PROMPT %MYCALL% de %YOURCALL% (*)>
  4.  
  5. LOG %MYCALL% connected to %YOURCALL% at %DATE%
  6. .Hallo Test.scr wurde gestartet.
  7.  
  8. .Set gpsstart to %DATE.D%.%DATE.M%.%DATE.Y% %DATE.HH%:00
  9.  
  10. gpsend %DATE.D%.%DATE.M%.%DATE.Y% %DATE.HH%:00:00
  11. gpsstart %DATE.D%.%DATE.M%.%DATE.Y% %DATE.HH%:00:00 -3600
  12.  
  13. .Date = %DATE%
  14. .GPS Date = %GPSSTART% - %GPSSEND%
  15.  
  16. :start
  17.    .Scleife wird zum %start%.ten mal durchlaufen !
  18.    send waiting for Prompt !!
  19.    waitfor PROMPT @30
  20.    delay 2
  21. :break
  22.    send Bitte Was zurⁿcksenden
  23.    readln %ZEILE% @30 :start
  24.    send You have entered %ZEILE% 
  25.    send at %DATE.NOW% --> %DATE.MJD%
  26.    tokenize %ZEILE%
  27.    ifn (%T1%) :continue
  28.        send T1=%T1%
  29.    ifn (%T2%) :continue
  30.        send T1=%T2%
  31.    ifn (%T3%) :continue
  32.        send T1=%T3%
  33.    ifn (%T4%) :continue
  34.        send T1=%T4%
  35.    ifn (%T5%) :continue
  36.        send T1=%T5%
  37.    ifn (%T6%) :continue
  38.        send T1=%T6%
  39.  
  40. :continue
  41.    if (EXIT~%ZEILE%) :ende
  42. loop start 10
  43. .Hallo Test.scr (%MYCALL% -> %YOURCALL% )wurde beendet.
  44. stop
  45. :ende
  46. .Abgebrochen !
  47. send Abgebochen !
  48. stop
  49.